Indent `with-standard-io-syntax' correctly.

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index dff375a2714b4f41fc0e3647b6df0653c98b53d0..54f13239b18cca31b615996ed038f0d2304b6873 100644 (file)
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -433,7 +433,8 @@ by `lisp-body-indent'."
           (throw 1)
           (unless 1)
           (unwind-protect (5 &body))
-          (when 1))))
+           (when 1)
+           (with-standard-io-syntax (2)))))
   (while l
     (put (car (car l)) 'common-lisp-indent-function
         (if (symbolp (cdr (car l)))